
	*******************************************************
	***	TABLES S6 to S11 - DESCRIPTION of CONTROL CHOICES *
	*******************************************************
	
	use "$data/choice_data.dta", clear
	
	merge 1:1 num_quest using "$data/secondary/final_data.dta", keep(match) keepusing(ITT male)
	
	keep if ITT == 0
	
 	/******************************************/
	/* 				TOYS TASK 				  */ 
	/******************************************/
	
	
	forvalues male = 0/1 {
		
		preserve
		
			keep if male == `male'
		
			foreach letter in B C D E F {
				
				qui cap drop I
				
				qui gen I = (toy_A_`letter' == 1) if toy_A_`letter' < .
				
				mean I
				
			}
			
			foreach letter in C D E F {
				
				qui cap drop I
						
				qui gen I = (toy_B_`letter' == 2) if toy_B_`letter' < .
				
				mean I
				
			}
			
			foreach letter in D E F {
				
				qui cap drop I
				
				qui gen I = (toy_C_`letter' == 3) if toy_C_`letter' < .
				
				mean I
				
			}
			
			
			foreach letter in E F {
				
				qui cap drop I
				
				qui gen I = (toy_D_`letter' == 4) if toy_D_`letter' < .
				
				mean I
				
			}
			
			
			qui cap drop I
				
			qui gen I = (toy_E_F == 5) if toy_E_F < .
				
			mean I
			
		restore
		
	}
	
  	/******************************************/
	/* 				RISK TASK 				  */ 
	/******************************************/
	
	
	forvalues male = 0/1 {
		
		preserve
		
			keep if male == `male'
		
	
			local numbers "8 6 7 4 5"
			
			foreach letter1 in G H I {
			
				local i = 1
				foreach letter2 in N L M J K {
					
					
					local number : word `i' of `numbers'
					
					qui gen temp = (risk_`letter1'_`letter2' == `number') if risk_`letter1'_`letter2' < .
					
					mean temp
					
					local i = `i' + 1
					
					cap drop temp
				
				}
				
			}
	
		restore
	
	}	
	

  	/******************************************/
	/* 				SHARING TASK 			  */ 
	/******************************************/
	
	forvalues male = 0/1 {
		
		preserve
		
			keep if male == `male'
		
			foreach letter in P Q R S {
				
					gen temp = (sharing_O_`letter' == 1)	if sharing_O_`letter' < .
					
					mean temp
					
					cap drop temp
								
			}
				
			foreach letter in Q R S {
				
					gen temp = (sharing_P_`letter' == 2)	if sharing_O_`letter' < .
					
					mean temp
					
					cap drop temp
								
			}	
			
			foreach letter in R S {
				
					gen temp = (sharing_Q_`letter' == 3)	if sharing_O_`letter' < .
					
					mean temp
					
					cap drop temp
								
			}		
			
			
			gen temp = (sharing_R_S == 4)	if sharing_R_S < .
			
			mean temp
			
			cap drop temp
			
		restore
		
	}	

	******************************************************
	***	TABLES S12 to S17 - ITT on CHILDREN's CHOICES  ***
	******************************************************	
	
	use "$data/choice_data.dta", clear
	
	merge 1:1 num_quest using "$data/secondary/final_data.dta", keep(match) keepusing(ITT male cluster male_ITT female_ITT)
	
	xtset cluster
	
 	/******************************************/
	/* 				TOYS TASK 				  */ 
	/******************************************/
	
	
			foreach letter in B C D E F {
				
				qui cap drop I
				
				qui gen I = (toy_A_`letter' == 1) if toy_A_`letter' < .
				
				xtreg I male_ITT female_ITT male, r fe
				
			}
			
			foreach letter in C D E F {
				
				qui cap drop I
						
				qui gen I = (toy_B_`letter' == 2) if toy_B_`letter' < .
				
				xtreg I male_ITT female_ITT male, r fe
				
			}
			
			foreach letter in D E F {
				
				qui cap drop I
				
				qui gen I = (toy_C_`letter' == 3) if toy_C_`letter' < .
				
				xtreg I male_ITT female_ITT male, r fe
				
			}
			
			
			foreach letter in E F {
				
				qui cap drop I
				
				qui gen I = (toy_D_`letter' == 4) if toy_D_`letter' < .
				
				xtreg I male_ITT female_ITT male, r fe
				
			}
			
			
			qui cap drop I
				
			qui gen I = (toy_E_F == 5) if toy_E_F < .
				
			xtreg I male_ITT female_ITT male, r fe
	
  	/******************************************/
	/* 				RISK TASK 				  */ 
	/******************************************/
	
	
			local numbers "8 6 4 7 5"
			
			foreach letter1 in G H I {
			
				local i = 1
				foreach letter2 in N L J M K {
					
					
					local number : word `i' of `numbers'
					
					qui gen temp = (risk_`letter1'_`letter2' == `number') if risk_`letter1'_`letter2' < .
					
					xtreg temp male_ITT female_ITT male, r fe
					
					local i = `i' + 1
					
					cap drop temp
				
				}
				
			}
	

  	/******************************************/
	/* 				SHARING TASK 			  */ 
	/******************************************/
	
			foreach letter in P Q R S {
				
					gen temp = (sharing_O_`letter' == 1)	if sharing_O_`letter' < .
					
					xtreg temp male_ITT female_ITT male, r fe
					
					cap drop temp
								
			}
				
			foreach letter in Q R S {
				
					gen temp = (sharing_P_`letter' == 2)	if sharing_O_`letter' < .
					
					xtreg temp male_ITT female_ITT male, r fe
					
					cap drop temp
								
			}	
			
			foreach letter in R S {
				
					gen temp = (sharing_Q_`letter' == 3)	if sharing_O_`letter' < .
					
					xtreg temp male_ITT female_ITT male, r fe
					
					cap drop temp
								
			}		
			
			
			gen temp = (sharing_R_S == 4)	if sharing_R_S < .
			
			xtreg temp male_ITT female_ITT male, r fe
			
			cap drop temp
			
	
